home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 December / PCWorld_2006-12_cd.bin / v cisle / pcwmy / pcwMyfiles.exe / pcwMyfiles.HTA
Text File  |  2006-10-20  |  5KB  |  90 lines
  1. <HTML><!--
  2.  
  3. Author:
  4. Copyright (C) 2003 David G. Wolski (admi@india.com)
  5.  
  6. Licence:
  7.  
  8. This program is free software; you can redistribute it and/or
  9. modify it under the terms of the GNU General Public License as
  10. published by the Free Software Foundation; either version 2 of
  11. the License, or (at your option) any later version.
  12. This program is distributed in the hope that it will be useful,
  13. but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  15. See the GNU General Public License for more details:
  16. http://www.gnu.org/copyleft/gpl.html
  17.  
  18. Requirements:
  19. Microsoft Windows 98/ME/2000/XP, IE 5.0, 5.5, 6.0
  20.  
  21. -->
  22. <HEAD>
  23. <TITLE>Skript PC-WORLDu: ┌prava slo₧ky Dokumenty</TITLE>
  24. <HTA:APPLICATION ID="pcwMyfiles" APPLICATIONNAME="pcwMyfiles" BORDER = "normal" CAPTION = "yes" SHOWINTASKBAR = "yes" SINGLEINSTANCE = "yes" SYSMENU = "yes" WINDOWSTATE = "normal" SCROLL = "no" SCROLLFLAT = "no" VERSION = "1.0" INNERBORDER = "no" SELECTION = "no" MAXIMIZEBUTTON = "no" MINIMIZEBUTTON = "no" NAVIGABLE = "yes" CONTEXTMENU = "no" BORDERSTYLE = "normal" ICON="idg.ico"/>
  25. <STYLE type="text/css">
  26. body     {font-family:Tahoma,Verdana,Arial,Geneva;font-size:14;background-color:Buttonface;}
  27. table    {font-family:Tahoma,Verdana,Arial,Geneva;font-size:14;}
  28. </STYLE>
  29. </HEAD>
  30. <SCRIPT language="JScript">
  31. //shell object
  32. var wshShell =  new ActiveXObject("WScript.Shell");
  33. var strpersonal   = "";
  34. var strmypictures = "";
  35. var strmymusic    = "";
  36. var strmyvideos   = "";
  37. function main() {
  38.   //read paths from registry  
  39.   try {
  40.     strpersonal   = wshShell.RegRead("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\\Personal"); 
  41.     strmypictures = wshShell.RegRead("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\\My Pictures");
  42.     strmymusic    = wshShell.RegRead("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\\My Music");
  43.     strmyvideos   = wshShell.RegRead("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\\My Video");
  44.   }
  45.   catch(error){}
  46.   //if a variable is empty, default to the usual path
  47.   if (strmypictures == "") { strmypictures = strpersonal +"\\Eigene Bilder"; }
  48.   if (strmyvideos   == "") { strmyvideos   = strpersonal +"\\Eigene Videos"; }
  49.   if (strmymusic    == "") { strmymusic    = strpersonal +"\\Eigene Musik";  }
  50.   MyMusic.value     = strmymusic;
  51.   MyVideos.value    = strmyvideos;
  52.   MyPictures.value  = strmypictures;
  53. }
  54. function save() {
  55.   wshShell.RegWrite("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\User Shell Folders\\My Pictures",MyPictures.value,"REG_SZ");
  56.   wshShell.RegWrite("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\User Shell Folders\\My Music",MyMusic.value,"REG_SZ");
  57.   wshShell.RegWrite("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\User Shell Folders\\My Video",MyVideos.value,"REG_SZ");
  58.   wshShell.RegWrite("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\\My Pictures",MyPictures.value,"REG_SZ");
  59.   wshShell.RegWrite("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\\My Music",MyMusic.value,"REG_SZ");
  60.   wshShell.RegWrite("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\\My Video",MyVideos.value,"REG_SZ");
  61.   alert("─nderungen in die Registry ⁿbernommen");
  62.   //update window's content
  63.   main();
  64. }
  65. function browse(inputname) {
  66.   var objShell = new ActiveXObject("Shell.Application");
  67.   var ssfWINDOWS = 36;
  68.   var objFolder;
  69.   objFolder = objShell.BrowseForFolder(0, "WΣhlen Sie einen Ordner aus", 17);
  70.   if (objFolder != null) {
  71.   //this statement returns the selected folder as a value for 'inputname'
  72.   document.all.item(inputname).value = objFolder.items().item().Path;
  73.   }
  74. }
  75. </SCRIPT>
  76. <BODY scroll=no onload="javascript:window.resizeTo(630, 200);main();">
  77. <B>Obrßzky:</B><BR>
  78. <INPUT type=Text ID="MyPictures" Name="MyPictures" size=78>
  79. <INPUT Type=Button Value="Vybrat"  onclick="browse('MyPictures')">
  80. <BR><B>Hudba:</B><BR>
  81. <INPUT type=Text ID="MyMusic" size=78>
  82. <INPUT Type=Button Value="Vybrat"  onclick="browse('MyMusic')">
  83. <BR><B>Filmy:</B><BR>
  84. <INPUT type=Text ID="MyVideos" size=78>
  85. <INPUT Type=Button Value="Vybrat"  onclick="browse('MyVideos')">
  86. <INPUT Type=Button Value="Potvrdit" onclick="save()">
  87. <INPUT Type=Button Value="Konec"       onclick="javascript:window.close();">
  88. </BODY>
  89. </HTML>
  90.